From d7c4e6fed0b120f6f0ca8876061ed671ed68686b Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 13 Dec 2000 14:13:10 +0000 Subject: [PATCH] (get_keyelt): Only eval the filter if `autoload' is set. --- src/keymap.c | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) diff --git a/src/keymap.c b/src/keymap.c index 68c673380c8..52b535e5d15 100644 --- a/src/keymap.c +++ b/src/keymap.c @@ -615,18 +615,14 @@ get_keyelt (object, autoload) /* If there's a `:filter FILTER', apply FILTER to the menu-item's definition to get the real definition to - use. Temporarily inhibit GC while evaluating FILTER, - because not functions calling get_keyelt are prepared - for a GC. */ + use. */ for (; CONSP (tem) && CONSP (XCDR (tem)); tem = XCDR (tem)) - if (EQ (XCAR (tem), QCfilter)) + if (EQ (XCAR (tem), QCfilter) && autoload) { - int count = inhibit_garbage_collection (); Lisp_Object filter; filter = XCAR (XCDR (tem)); filter = list2 (filter, list2 (Qquote, object)); object = menu_item_eval_property (filter); - unbind_to (count, Qnil); break; } } -- 2.30.2